

/* Do file for "Single Conversations Expand Practitioners' Use of Research: Evidence from a Field Experiment" */
/* Levine 2020 */
/* NOTE: All estimates of uncertainty reported in the paper are calculated using ri (Aronow and Samii 2012) */


/* cross-tabs */
tab SURVEY
tab TREATMENT
tab MINIGRANT

sort TREATMENT
by TREATMENT: tab MINIGRANT
by TREATMENT: tab SURVEY

sort TREATED
by TREATED: tab SURVEY if TREATMENT==1

/* Correct knowledge of what to do; battery of six knowledge questions with correct answers marked */
gen Q1_correct = Q1
recode Q1_correct 1=1 2/3=0

gen Q2_correct = Q2
recode Q2_correct 1=1 2/5=0

gen Q3_correct = Q3
recode Q3_correct 1=1 2=0 3=0

gen Q4_correct = Q4
recode Q4_correct 1=1 2/3=0

gen Q5_correct = Q5
recode Q5_correct 1/3=0 4=1 5=0

gen Q6_correct = Q6
recode Q6_correct 1=1 2=0 3=0

gen correct = (Q1_correct + Q2_correct + Q3_correct + Q4_correct + Q5_correct + Q6_correct)/6 

sort TREATMENT
by TREATMENT: sum(correct)


/* subjective feelings of uncertainty about what to do */
/* everything is coded so that greater uncertainty/lower understanding corresponds to higher numbers */
gen UncertainTheory = Q7
recode UncertainTheory 1=1 2=.75 3=.5 4=.25 5=0

gen DontUnderstandConcept = Q8
recode DontUnderstandConcept 1=0 2=.25 3=.5 4=.75 5=1

gen UncertainPeople = Q9
recode UncertainPeople 1=1 2=.75 3=.5 4=.25 5=0

gen UncertainSampling = Q10
recode UncertainSampling 1=1 2=.75 3=.5 4=.25 5=0

gen DontUnderstandBudget = Q11
recode DontUnderstandBudget 1=0 2=.25 3=.5 4=.75 5=1

gen PartsUncertainty =  (UncertainTheory + DontUnderstandConcept + UncertainPeople + UncertainSampling + DontUnderstandBudget)/5

sort TREATMENT
by TREATMENT: sum(PartsUncertainty)


/* subjective perceptions of self-efficacy */
gen WellQualified = Q12
recode WellQualified 1=1 2=.75 3=.5 4=.25 5=0

gen GoodJob = Q14
recode GoodJob 1=1 2=.75 3=.5 4=.25 5=0

gen NotNervous = Q13
recode NotNervous 1=0 2=.25 3=.5 4=.75 5=1

gen NotUncertain = Q15
recode NotUncertain 1=0 2=.25 3=.5 4=.75 5=1


/* Overall measure based on coded variables so that higher values mean more self-efficacy */
gen Overall = (WellQualified + NotNervous + GoodJob + NotUncertain)/4
sort TREATMENT
by TREATMENT: sum(Overall)

/* Note Q16 in survey was the open-ended "Anything more you want to mention?" question; not included here */

/* how likely do you think you'll get the grant (was only asked to Ecuador and Nepal respondents) */
gen likely = Q17
recode likely 1=1 2=.75 3=.5 4=.25 5=0
by TREATMENT: sum(likely)
